home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
IRIX Base Documentation 1998 November
/
IRIX 6.5.2 Base Documentation November 1998.img
/
usr
/
share
/
catman
/
p_man
/
cat3
/
f90
/
pxflink.z
/
pxflink
Wrap
Text File
|
1998-10-30
|
4KB
|
81 lines
PXFLINK(3F) Last changed: 1-6-98
NNAAMMEE
PPXXFFLLIINNKK - Creates a link to a file
SSYYNNOOPPSSIISS
CCHHAARRAACCTTEERR*_n _e_x_i_s_t_f,, _n_e_w_f
IINNTTEEGGEERR _l_e_n_e_x_i_s_t,, _l_e_n_n_e_w,, _i_e_r_r_o_r
CCAALLLL PPXXFFLLIINNKK((_e_x_i_s_t_f,, _l_e_n_e_x_i_s_t,, _n_e_w_f,, _l_e_n_n_e_w,, _i_e_r_r_o_r))
IIMMPPLLEEMMEENNTTAATTIIOONN
UNICOS, UNICOS/mk, and IRIX systems
SSTTAANNDDAARRDDSS
IEEE standard interface for FORTRAN 77
DDEESSCCRRIIPPTTIIOONN
On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
7.2 F77 compiler.
The PPXXFFLLIINNKK routine uses the lliinnkk function to link an existing file to
a new file.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
IRIX, the default kind is KKIINNDD==44.
The following is a list of valid arguments for this routine:
_e_x_i_s_t_f An input character variable or array element containing the
name of an existing file.
_l_e_n_e_x_i_s_t An input integer variable containing the length of _e_x_i_s_t_f in
characters. If _l_e_n_e_x_i_s_t is zero, all trailing blanks are
removed before calling lliinnkk().
_n_e_w_f An input character variable or array element containing the
name of a new file.
_l_e_n_n_e_w An input integer variable containing the length of _n_e_w_f in
characters. If _l_e_n_n_e_w is zero, all trailing blanks are
removed before calling lliinnkk().
_i_e_r_r_o_r An output integer variable that contains zero if the link
was successful or nonzero if the link was not completed.
In addition to the errors returned by the lliinnkk(2) system call, PPXXFFLLIINNKK
may return the following errors:
EEIINNVVAALL If _l_e_n_e_x_i_s_t < 0 or _l_e_n_e_x_i_s_t > LLEENN((_e_x_i_s_t_f)) or _l_e_n_n_e_w < 0 or
_l_e_n_n_e_w > LLEENN((_n_e_w_f)).
EENNOOMMEEMM If PPXXFFLLIINNKK is unable to obtain memory to copy _e_x_i_s_t_f or
_n_e_w_f.
EEXXAAMMPPLLEESS
program test
character*(12) filea, fileb
integer lenfila, lenfilb,ierr
filea = 'existfile'
fileb = 'newfile'
lenfila = 0
lenfilb = 0
call pxflink(filea,lenfila,fileb,lenfilb,ierr)
if (ierr.ne.0) then
print *,'FAIL: error from pxflink = ',ierr
else
print *,'PASS: No error from pxflink = '
endif
end
SSEEEE AALLSSOO
_A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-
2165, for the printed version of this man page.